Sub EuroNext_Macro() Dim DataCH(20) As String Dim trace As Integer trace = 1 'trace ioerr = 0 On Error GoTo Errortrap ipos = 1 DataCH(1) = "https://www.nicvroom.be" DataCH(2) = "https://live.euronext.com/en/product/stock-options/ABN-DAMS" l = Len(DataCH(ipos)) If trace = 1 Then Debug.Print "EuroNext_Macro " + " ipos " + Str(ipos) + " l " + Str(l) If l < 2 Then Exit Sub Debug.Print "1" With ActiveWorkbook.Connections("Verbinding139") .Name = "Verbinding139" .Description = "" End With Debug.Print "2" Text$ = " Hallo " If trace = 1 Then Debug.Print "Euronext_Macro Text$ " + Text$ Range("A1:A300").Select With Selection.QueryTable .Connection = "URL;" + DataCH(ipos) .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingNone .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With Range("A1").Select On Error GoTo 0 Exit Sub Errortrap: ioerr = Err.Number Debug.Print "EuroNext_Macro ioerr"; ioerr DISDIRERR blad$ ierr = ioerr On Error GoTo 0 End SubNormally this program worked as expected.
Excel 2019 Query: Table highlighting is disabled because this page uses internet explorer's compatibility mode
I have found this document: https://answers.microsoft.com/en-us/msoffice/forum/all/table-highlighting-is-disabled-because-this-page/43ebb196-b7bd-4cba-8b80-e5bbbb525238 |
Excel 2019 Query Error.
Excel 2019 Query Error. |
Back to my home page Contents of This Document